Multimedia Dogs/Multimedia Dogs v2.0.iso/mac/Multimedia Dogs 2.0/MIAW.DXR/00008.ls

Text File | 1995-10-09 | 580 b | 24 lines

on exitFrame
  go(the frame)
end

on keyDown
  set theCastnum to the number of cast "SelectionList"
  set theText to the text of cast theCastnum
  set theIndex to 0
  set theOffset to 7
  repeat with i = 1 to the number of lines in theText
    set theChar to char 1 of line i of theText
    if theChar = the key then
      set theIndex to i
      exit repeat
    end if
  end repeat
  if theIndex <> 0 then
    set thePoint to min(theIndex + theOffset, the number of lines in field theCastnum)
    put EMPTY before line thePoint of field theCastnum
  else
    beep()
  end if
end